home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspusr.arc / CPP3320.CLP next >
Encoding:
Text File  |  1991-12-04  |  4.6 KB  |  101 lines
  1.  CPP3320:    PGM        PARM(&USRPRF &OUTPUT)
  2.              /*         Display user profile list */
  3.              /*         OUTPUT(*) means display via the subfile */
  4.              /*         OUTPUT(*LIST) means display via the report */
  5.  
  6.              /*         Command processing program for DSPUSR */
  7.  
  8.              DCL        &OUTPUT *LGL 1
  9.  
  10.              DCL        &USRPRF *CHAR 10
  11.  
  12.              DCL        &SPCAUT *CHAR 100
  13.              DCL        &MAXSTG *DEC  11
  14.              DCL        &MAXSTGA *CHAR 11
  15.              DCL        &PTYLMT *CHAR 1
  16.              DCL        &INLPGM *CHAR 10
  17.              DCL        &INLPGMLIB *CHAR 10
  18.              DCL        &JOBD   *CHAR 10
  19.              DCL        &JOBDLIB *CHAR 10
  20.              DCL        &GRPPRF *CHAR 10
  21.              DCL        &OWNER  *CHAR 10
  22.              DCL        &GRPAUT *CHAR 10
  23.              DCL        &ACTCDE *CHAR 15
  24.              DCL        &MSGQ   *CHAR 10
  25.              DCL        &MSGQLIB *CHAR 10
  26.              DCL        &OUTQ   *CHAR 10
  27.              DCL        &OUTQLIB *CHAR 10
  28.              DCL        &TEXT   *CHAR 50
  29.  
  30.              DCL        &DATE *CHAR 8 VALUE('00/00/00')
  31.              DCL        &TIME *CHAR 8 VALUE('00:00:00')
  32.              DCL        &COUNTER  *DEC  5
  33.              DCL        &COUNTERA *CHAR 5
  34.              DCL        &BLANK10 *CHAR 10
  35.              DCL        &BLANK11 *CHAR 11
  36.              DCL        &BLANK   *CHAR 1
  37.              DCL        &BLANK2  *CHAR 2
  38.  
  39.              DCLF       FILE(QADSPOBJ)
  40.  
  41.              MONMSG     MSGID(CPF0000)
  42.  
  43.              DSPOBJD    OBJ(&USRPRF.QSYS) OBJTYPE(*USRPRF) +
  44.                           OUTPUT(*NONE) OUTFILE(USERS.QTEMP)
  45.  
  46.              OVRDBF     FILE(QADSPOBJ) TOFILE(USERS.QTEMP)
  47.              PRINT      PRTDTA(&DATE *BCAT &TIME *CAT '     Q38 - +
  48.                           User Profile List    ' *CAT 'CPP3310') +
  49.                           SKIPB(01) HEADING(*YES *REPLACE)
  50.              PRINT      PRTDTA('                               +
  51.                           Summary Report') SPACEA(2) HEADING(*YES *ADD)
  52.              PRINT      PRTDTA('User       Initial     +
  53.                           Special                        Job         +
  54.                           Output      Message    Accounting      +
  55.                           Group      Group      Group') +
  56.                           heading(*yes *add)
  57.              PRINT      PRTDTA('Profile    Program     +
  58.                           Authority                      Description +
  59.                           Queue       Queue      Code            +
  60.                           User       Owner      Authority') +
  61.                           HEADING(*YES *ADD)
  62.  
  63.  GETDBF:     RCVF       RCDFMT(QLIDOBJD)
  64.              MONMSG     MSGID(CPF0864) EXEC(GOTO ENDOFILE)
  65.              RTVUSRPRF  USRPRF(&ODOBNM) RTNUSRPRF(&USRPRF) +
  66.                           SPCAUT(&SPCAUT) MAXSTG(&MAXSTG) +
  67.                           PTYLMT(&PTYLMT) INLPGM(&INLPGM) +
  68.                           INLPGMLIB(&INLPGMLIB) JOBD(&JOBD) +
  69.                           JOBDLIB(&JOBDLIB) GRPPRF(&GRPPRF) +
  70.                           OWNER(&OWNER) GRPAUT(&GRPAUT) +
  71.                           ACGCDE(&ACTCDE) MSGQ(&MSGQ) +
  72.                           MSGQLIB(&MSGQLIB) OUTQ(&OUTQ) +
  73.                           OUTQLIB(&OUTQLIB) TEXT(&TEXT)
  74.  
  75.              IF         (&MAXSTG *EQ -1) DO
  76.              CHGVAR     VAR(&MAXSTGA) VALUE('*NOMAX')
  77.              ENDDO
  78.              ELSE       DO
  79.              CHGVAR     VAR(&MAXSTGA) VALUE(&MAXSTG)
  80.              ENDDO
  81.              PRINT      PRTDTA(&USRPRF *CAT &BLANK *CAT &INLPGM *CAT +
  82.                           &BLANK2 *CAT %SST(&SPCAUT 01 30) *CAT +
  83.                           &BLANK *CAT &JOBD *CAT &BLANK2 *CAT &OUTQ +
  84.                           *CAT &BLANK2 *CAT &MSGQ *CAT &BLANK *CAT +
  85.                           &ACTCDE *CAT &BLANK *CAT &GRPPRF *CAT +
  86.                           &BLANK *CAT &OWNER *CAT &BLANK *CAT +
  87.                           &GRPAUT) SPACEA(1) SPACEB(1)
  88.              PRINT      PRTDTA(&BLANK10 *CAT &BLANK2 *CAT &INLPGMLIB +
  89.                           *CAT &BLANK *CAT %SST(&SPCAUT 31 30) *CAT +
  90.                           &BLANK2 *CAT &JOBDLIB *CAT &BLANK2 *CAT +
  91.                           &OUTQLIB *CAT &BLANK2 *CAT &MSGQLIB)
  92.              CHGVAR     VAR(&COUNTER) VALUE(&COUNTER + 1) +
  93.                           /* Count number of users */
  94.              GOTO       GETDBF  /* Read next user profile record */
  95.  
  96.  ENDOFILE:   CHGVAR     VAR(&COUNTERA) VALUE(&COUNTER)
  97.  
  98.              PRINT      PRTDTA(&COUNTERA *BCAT 'User profiles +
  99.                           processed.') SPACEB(2) CLOSE(*YES)
  100.  ENDPGM:     ENDPGM
  101.